home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 March / Chip_2004-03_cd1.bin / software / slunec / app / 6157_8185.exe / {app} / Pascal / File Name / FileName.pas next >
Encoding:
Pascal/Delphi Source File  |  2003-11-08  |  370 b   |  10 lines
  1. Output('File: ' + File);
  2. Output('FileName: ' + ExtractFileName(File));
  3. Output('FileExt: ' + ExtractFileExt(File));
  4. Output('FileNameExt: ' + ExtractFileNameExt(File));
  5. Output('FilePath: ' + ExtractFilePath(File));
  6. Output('DirectoryName: ' + ExtractDirectoryName(ExtractFilePath(File)));
  7. Output('DirectoryPath: ' + ExtractDirectoryPath(ExtractFilePath(File)));
  8.  
  9.  
  10.